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v03-008 BLS0223 Benn Schreiber 13-May-1983 
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Fix truncation error 


v03-007 wMc0001 Wayne Cardoza 31-Jul-1982 
Add flag to prevent setting of PFLSM_INITED. 


v03-006 KDM0002 
Added SPRDEF. 


Kathleen D. Morse 28-Jun-1982 
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INI TPGFIL - Initialize a Page 15-SEP-1984 23:53: AX/VMS Macro v04-00 
| v04-000 . 27SE = 1382 : 32:93 Yeoors sre INI TPGFIL.MAR; 1 
1 -TITLE INITPGFIL = Initialize a Page File Control Block 
33 § ; - IDENT WWoae800! - + Liwepreaan Petia: 
O80 : ITTITITIIITIIIITITITI TLL IIIT TILL LiL Ti TTT iiiiiiiiiiiii iii iii 
;* 
000 § 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
000 3* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
4444 8 :* ALL RIGHTS RESERVED. 
8808 10 * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
0 11 ;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
0000 \¢ :* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE Y 
0000 15 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
0000 14 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
444 + :* TRANSFERRED. 
0000 i$ 8 THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
0000 18 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
44 i? ‘* CORPORATION. 
0000 1 * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
464 § es SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
6009 3 | cAneaeERAnNNeN naan eEeseenbneNeTOCERnebenebeNnteNteenneetnannteeeeenen 
0000 r- 
0000 28 ;++ ; 
9464 $0 Facility: SYSGEN Utility 
0000 1 ; Abstract: This module isolates the procedure to initialize the 
0000 $$ secendery page file control blocks. The procedure was 
4 3 previously located in module RMSCONIO. 
9444 $2 Environment: The code in this procedure executes in kernel mode. 
st ? Author: R.1. Hustvedt, Creation Date: 7-Sep-1977 
0000 39 ; Modified by: 
0000 40 
0000 41 v03-009 MSHO001 Maryann Hinden 27-Jun-1983 
0000 4g Fix truncation error. 
44 
45 
46 
47 
48 
49 
50 
2} 
38 
¢¢ 
5 
28 
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INI TPGF IL ~ Initialize S-SEP-1984 23:53:03 VAX/VMS Macro V04-00 p 
v04-000 DECLARATIONS t-SEp=-1984 83:00:52 Leooresscsinitrcricamar;1 28° (9, 
009 ; INCLUDE FILES: 


syeten status codes _ 
SYSGEN message definitions 
Window control block 


SDYNDEF 3; Dynamic structure identification codes 
SIPLDEF 3; Symbolic IPL codes 
PFLDEF ; Page file control block 
SPRDEF ; Processor register numbers 
PTRDEF 3; Pointer control block 
SPTEDEF 3; Page table entry Layout 
it i ; Resource codes 


SSSDEF 
$SYSGMSGDEF 
SWCBDEF 


: EQUATED SYMBOLS: 
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: Offsets from AP 
00000004 FILESIZE = 4 ; Size of page or swap file 
00000008 WCBADDR = 8 ; Address of WCB that maps file 

; Caution = the next two parameters fit in a gingte word. | 
0000000C MAXVBN = 12 ; Largest VBN in file that can be used (24 b- 
0000000F 00 FLAGS = 15 Input flags 
00000010 0000 PAGEFIDX = 16 Address in which to return new 


page file index 


00000060 0000 WCB_MASK = WCBSM_COMPLETE ! WCBSM_CATHEDRAL 


8 
8 
00000014 0000 8 MINVBN = 20 Number of blocks not in bitmap 
00000018 4464 3 STARTVBN = 24 Number of blocks marked as ‘in use” 
444 : 3 Offsets from FP 
FFFFFFFC 0000 9 PAGE _OR_ SWAP = =-4 : 0 => swap file and 1 => page file 
FFFFFFF8 0000 S PFLVEC_RILIM = -8 ; Upper Limit for PFL vector search 
FFFFFFF4 0000 9 PFLVEC_LOLIM = -12 3 Lower Limit for PFL vector search 
FFFFFFFQO 0000 9 PFL_L_STARTVBN = -16 ; Saved value of STARTVBN(AP) 
FFFFFFEC 464 5 PFL_L_MINVBN = -20 ; Saved value of MINVBN(AP) 
0000 3 Mask for WCB access field 
g 
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| INI TPGFIL = Initialize a Page File Control Block 15-SEP-1984 253: AX/VMS Macro v04-00 p 
Leeene INSTALL PAGE OR SAP FILE 2786-138 g 32:93 teoors sre INITPGFIL.MAR;1 — dy 
~SBTTL INSTALL PAGE OR SWAP FILE 
;+* 
: Functional Description: 
BOOSINITPAGF IL 
BOOSINITSWPFIL 


BOOSINITxxxFIL initializes a page file control block for a page file 
or swap file that has just been opened. A bitmap is allocated from 
nonpaged pool and set up to indicate that the entire file is 
available for use (bitmap is filled with ones). (If the STARTVBN 
parameter is specified and nonzero, the first STARTVBN blocks are 
initially marked as in use.) The address of the WCB is stored in the 
page file control block. If the caller requests it, the index of 
this file (used to locate the PFL in the page file control block 
vector) can be returned to the caller. 
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Input Parameters: 


FILESIZECAP) Size (in blocks) of the file 

WCBADDR (AP) Address of WCB that maps the file 

MAXVBN(AP) Parameter that controls largest VBN that may be used (24 bit. 

FLAGS (AP) Byte of input flags | 
bit 0 => do not set PFLSM_INITED 


If the MAXVBN is zero or is larger than “XOO3FFFFF, then the 
MAXVBN field in the page file controi block is set to 
“XOOSFFFFF. Otherwise, PFLSL_MAXVBN is set to the smallest 
power of 2 larger than the MAXVBN input parameter. 

(See routine FIND_MAXVBN for details.) 


Optional Input Parameters: 
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Both of these parameters nust be present or both assume the 
default values of zero. 


MINVBN(AP) Number of blocks at the start of the file that 
are not represented in the bitmap. 
(Defaults to zero if not present 

STARTVBN(AP) Number of bits at the start of the bitmap that 
are cleared, indicating that the first STARTVBN 
blocks are not available for use. 
(Defaults to zero if not present) 


Note that the total number of blocks initially available is 
AVAILABLE = FILESIZE - MINBVN - STARTVBN 
Implicit Input: 


MMGSGL_PAGSWPVC Contains the address of vector that locates each 
swap file table entry and page file control block 


SGNSGW_PAGFILCT Maximum number of paging files allowed in this 
configuration 
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SGNSGW_SWPFILCT Maximum number of swapping files allowed in this 
configuration 
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IPL is assumed to be zero on entry to these procedures. 
Output Parameters: 

PAGEF IDX(AP) Address in which to return new page file index 
Implicit Output: 


A page file control block and its associated bitmap are allocated 
from nonpaged pers. Various fields in the PFL are filled in 
according to the input parameters. ALl bits in the bitmap are set, 
indicating an onpty file (unless STARTVBN is specified and nonzero, 
in which case, the first STARTVBN bits are cleared, indicating that 
the associated blocks are initially in use.) The address of the 

is stored in the page file control block. Finally, the page file 
control block address is stored in the first empty entry in the page 
file control block vector. 


MMGSGL_MAXPFIDX This cell contains the index of the most recentl 
instacled paging file. If entry is at BOOSINI TPAGFIL, 
then this cell is updated. 


Completion Status: 
RO low bit set indicates success. 
RO low bit clear indicates error. 
SS$_INSFMEM Insufficient nonpaged pool for bitmap 


SYSGS_SWAPAGINS There is no more room in the page file 
control block vector. The number of page or 

avee files specified by the aspreeriete 

SYSGEN parameter have already been installed. 


SYSGS_EMPTYFILE Page or swap files of zero length cannot be 
installed. 


SS$_PARTMAPPED File does not have all of its mapping pointers 
permanently resident and there is not enough 
nonpaged pool to allocate an extended window 
control block. 
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0000 -PSECT PAGED_CODE RD ,NOWRT ,EXE ,LONG 
ENABLE LOCAL _BLOCK 
BOOSINITPAGFIL:: 
O3FC -WORD “M<R2,R3,R4,R5,R6,R7,RB,RI> 3; Entry mask 
01 go PUSHL 3; Store code that Gist inguishes entry 
7E 00000000 ' GF C MOVZWL G*<SGNSGW_PAGF ILCT-EXESA_SYSPARAM*+MMGSA_SYSPARAM> ,=(SP) 
0 ; Zero extend page file count 
10 13 00 BEQL 10$ 3; Count of zero prevents installation 
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= Initialize a Page File Control Block 15-SEP-1984 23:53: AX/VMS Macro V04-00 Page 5 
INSTALL PAGE OR SAP FILE 273E= 1382 5 32:93 YBooYs Ske INITPGFIL.MAR;1 (1) 
51 sete? tall 3 800 15 MOVZWL G*SGNSGW_SWPFILCT,R1 ; Zero extend swap file count 
6E aS 14 1 ADDL2 = R1,(SP) ; Store sum as upper igre PFL index 
ae 017 1 DECL (SP) ; Account for zero origin 
1 DD 0019 18 PUSHL R : Swap file count is lower Limit 
. ee B18 8 BRB 20$ 3; Join common code 
50 007C8072 8F DO 001D 1 10$: MOVL #SYSG$_SWAPAGINS ,RO ; Indicate error status 
04 8 1 ¢ RET ; and return 
0025 4 BOOSINITSWPFIL:: 
00 O3FC 00 ; 5 ee ” neacicteaahceatanteahctenaid 3 Entry geek ‘ 
: Store entry point co 
51 _00000000'GF 3 60 9 ; 5 MOVZWL G*SGNSGW_SWPFILCT,R1 3; Zero qntend Sues file count 
7E 51 #401 €3 0030 28 SUBL3 #1,R1,-(5P) 3: Modified swap file count is upper Limit 
E 13 te 9 BEQL 10$ ; (Count of one prevents installation) 
01 OD it} ? PUSHL #1 ; and 1 is the lower Limit 
Ooee 3 ; Calculate value for PFL$L_MAXVBN 
SE 08 C2 0038 See 208: SUBL2 4#8,SP ; Allocate space for MINVBN and STARTVBN 
00000083"EF 16 0038 35 JSB CHECK_ARG_LIST ; Get MINVBN and STARTVBN parameters 
56 OC AC 18 O00 EF 0041 236 EXTZV #0,424,MARVBN(AP) ,R6 ; Get MAXVBN parameter 
OE 13 0047 $34 BEQL : If not present, use default 
OOSFFFFF 8F 56 D1 0049 238 CMPL —« R6,, #PTESM_PGFLVB ; Also use default if input parameter 
1E 0050 39 BGEQU ; _is larger than default value 
OOAD 30 EE: 40 BSBW F IND_MAXVBN ; Otherwise, perform a detailed calculation | 
} oO | 3338 rt BRB 40$ 3 eee and continue in Line 
56 OOSFFFFF 8&F dO Boer ze$ 30$: MOVL #PTESM_PGFLVB,R6 
ooee $t2 : Calculate modified file size 
7E 04 AC EC AD C3 OOSE 247 40$: SUBL3) PFL_L_MINVBN(FP) ,FILESIZE(AP) ,-(SP) ; Get actual size 
03 1A 0064 $08 BGTRU 45$ 
0088 31 0066 49 $e3 BRwW $ ; Error if absurd parameters 
57 8E— 07 9 0069 250 45$ BICL3 #*B0111,(SP)+,R7 ; Retrieve modified file size 
F7 13 0060 51 BEQL 42$ : Error if file has no space in it 
56 57 D1 Q0O6F 26 CMPL R7,R6 3; Make sure that file size is smaller 
046 «OF Bate 5 BLSS 50 3; than MAXVBN. 
57 56 O07 CB te 338 BICL #°B0111,R6,R7 : If not, minimize file size. 
$078 56 ; ALL mapping pointers must be permanently resident in order that memory 
Boe f 3 management 1/0 requests can always complete without ACP intervention. 
5 08 AC 00 0078 35 50$: MOVL WCBADDR(AP) ,R9 ; Get WCB address from argument List 
50 068 AD OF BF 8B 007C 260 BICB3 #*C<WCB_MASK>,WCBS$B_ACCESS(R9) ,RO 
+t} 61 3; Check COMPLETE and CATHEDRAL 
50 60 8F 91 008 $6 CMPB #WCB_MASK,RO ; _bits. Error if both bits are not set 
74 «612 3 o7 BNEQ 80$ 3; Set error status and return 
b8 9 ; Determine bitmap size in bytes 
2s ee C7 008 4] DIVL #8,R7,RB 3; Convert bit count to byte count 
so Bw (1 33 rf: ADDL #<PFLS$K_LENGTH+1>,R8,R1 ; Determine size of pool allocation 
8 ; (+1 is for stopper byte in bitmap) 
00000000"GF 16 9 0 JSB SEER SALONONPAGED ; Allocate a block of poo 
68 50 £9 96 71 BLBC RO,90$ 3; Quit if allocation failed 


—— 
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, V04-000 INSTALL PAGE SWAP FILE 2786-138 33:32:93 Ypoors sre INITPGFIL.MAR;1 . (1) 
; Now load the various fields in the page file control block 
$ Ri = Size of allocation reques 
; R2 = Address of pe ge file Jentrel block 
3 R6 = Modified MAXVEN parameter 
: R? = Modified FILESIZ perencter 
: R8 = Bitmap size in byt 
5 R9 = Address of winéee: control block that completely maps file 
62 224A DE MOVAL erat oP} TRAPL OC ER ) »PFLSL -BITMAP(R2) ; Store address of bitmap 
’ 04 A D4 CLR PFLSL_ YTE(R2) ; Let allocator initialize this fie id- 
08 Ag 51 5 C3 SUBL3 RBC RT ~prL Su SIE CRD) ; Store PFL size (excluding bitmap size) 
OA A 2 98 MOVZBW #ovnse PFL,PFLS$B_TYPE(R2) ; share type code and cigar PFC field 
0c A2 59 0 MOVL 9,PFLSL_WIND NDOW CRG) ; Store WCB address into PFL 
10 A 3 DO MOVL Re )+,PFCS$L_VBN(R2) ; store the dg ie field 
14 A2 5 9 MOVL R8,PFL$L_BITMAPSIZ(R2) Store bitm 
18 A2 57 FOAD C SUBL3- PFL ul _STARTVBN(FP) ,RY,PFLSL PREPAGENT CRS) - ; Free page count 
3 Ts modified file size - STARTVBN 
Oc 1A BGTRU 60$ ; Keep going if there are free pages 
007C807A 8F DD PUSHL O31 $68 ERPTYFILE ; Treat error as ‘‘file too smal 
QO000040"EF 17 JMP L*140$ ; Error if absurd parameters 
1C A2. 56~—Ssi00 60$: MOVL R6,PFLSL sae eh 5 i : prere rte parameter 
20 A2 BS CLRW PFL$W_ERRORCNT(R2) Clea unt of potentially bad blocks 
22 A2 00000000 ' GF 90 MOVB G*MPwWSGW MPUPFC PFLSB_ nriotstdingy” Initialize MPW cluster factor 
004A 30 BSBW INIT BITMAP ; Mark t blocks tn file as free 
SE 04 C0 ADDL2 #4,SP : Clear oc TART USN value from stack 
CLRB PFL$B FLAGS (R2) 
OF AC O01 93 BITB #1,FLAGS (AP) ; Should it be marked useable 
04 12 BNEQ 


6 ; No 
BISB #PFLSM_INITED,PFL$B_FLAGS(R2) ; Indicate that file is ready 


65$: 
; Now locate empty PFL vector slot and store PFL address 
54 8& 7D mova (SP)+,R4 3; Load index Limits into R4 and R5 
OOONO0O00'EF 17 JMP LALOCKED_ CODE_BEGIN 


; Error returns 


50 007C807A BF D0 708: nov #SYSGS_EMPTYFILE,RO ; Zero length files cannot be installed 


04 ; Return error status 
50 OE&22 8F 3C 80$: MOVZWL #SS$_PARTMAPPED,RO ; Set error status code 
04 90$: RET 3; and return 
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.PSECT NONPAGED_CODE = RD, NOWRT,EXE,LONG 
LOCKED. CODE BEGIN: 
ETTPL LOCK_IPL 
“PFL_SLOT 
TSTL ney ; Entry at BOOSINITPAGF IL? 


ranch 
MOVL R3,G*MMGSGL_MAXPF IDX 
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Do at IPL 7 to prevent simultaneous update 

Locate empty PFL slot and store 

Otherwise update PFL index ypper Limit 
MOVL #RSNS_PGFILE,RO Report seit LE resource available only 


004E 3 38B FIND 
250 1308 7 
b ; 1308 : 8 
00000000'GF 53D 
$0 06 OD ; 
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INI TPGFIL - Initialize a P eof ite Control BL /VMS Macro v04-00 Page 
v04-000 INSTALL PAGE OR H AP FILE 4-SEP- 1984 $3 ‘ba ‘3 BOOTS SRe IN NITPGF IL. MAR; 1 . 
vein 16 0018 9 JSB G*SCHSRAVAIL ; when installing paging file 
A 00 1 0 110$: MOVL #RSNS_SWPFILE,RO : weer’ SWAPFILE resource available when 
QO0000000'GF 16 4 1 JSB G*SCHSRAVAIL ; aging or swap file is installed 
A § SETIPL 44 : Reena le scheduling 
OA 0 02D MOVL 1 Menai RI : Does the caller want the PFL index? 
"9 1 031 4 BEQL 1G ; Branch if not 
61 0 8 3 5 MOVL R ; Otherwise stere the PFL index 
50 01 3¢ é 6 1208:  MOVZWL ness. RNORMAL, RO : Signal success 
4 5 H f RET 3 and return 
60 i 8 3; No free slot is available in the page file control block vector. The 
8 : 9 ; PFL and its associated bitmap must be deallocated. 
Op ee tg s (SP) Error status code 
007C8072 8F DD O03A 44 130$: PUSHL #51568. SWAPAGINS F . nal a failure 
50 $2 go Boag 45 140$: MOVL R 3 address of PFL 
51 08 A2 C 004 46 MOVZWL Pri Sw. SIZE(R2) 5 eet size of PFL less bitmap size 
5114 A2 «CO (0047) 347 ADDL2 —PELSL “BI TMAPSIZ¢R2), R1 : Add bitmap size 
00000000 ' GF 16 0048 348 JSB GEKESDEANONPGDS1Z ; Deallocate the block 
0051 349 SETIPL 3; Reenable scheduling 
50 8E& 00 0054 350 MOVL {SP)*,RO ; Restore error status 
04 0057 #1351 RET :; Return error status to caller 
0058 $25 
0058 35 -DISABLE LOCAL BLOCK 
0058 354 
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- SUBTITLE FIND_PFL_SLOT Find free slot in PFL vector 
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This routine locates the first free slot (one potng ing to MMG$GL_NULLPFL) 
in either the swap file or page file area of the PFL vector and Toads 

the PFL address passed as an input parameter into that slot. 

Input parameters: 

R2 = Address of page file control block to be stored in vector 
= Index at which search begins 

RS = Index at which search must end 


(Note that R4 and R5 are inclusive Limits) 
(Note also that R4 LSSU RS) 


Implicit input: 
MMGSGL_PAGSWPVC Pointer to page file control block vector 
Output parameter: 


R3 = Index into PFL vector into which PFL address is stored. 
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Implicit output: 


The PFL address passed into this routine in R2 is loaded into 
the empty vector slot located by this routine. 


Side effects: 
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; 
8 
8 
8 
5 8 
; ; Ri is destroyed 
: . Return status: 
; 2 RO = SSS$_NORMAL => successful return 
2 ; RO = SS$_NOSLOT => no empty slots are available 
05 9 
05 96 FIND_PFL_SLOT: 
50 Q0000000°GF DE 005 9 MOVAL G*MMGS$GL_NULLPFL,RO : This address indicates an empty slot 
51 00000000'GF 00 00 9 MOVL G“MMGS$GC! _PAGSWPVC ,R1 ; Get PFL vector address 
5354 +4 be 9 MOVL R4 ns ; Get initial index value 
50° 6143 «OD 6 00 10S: cmPL (R1)CR5].RO : Is this slot free? 
OA 13 006 0 BEQL 3 + a implies free 
os 3S FS BS 3 AOBLEQ R5,R3,10$ ; If we drop through this loop, then ... 
50 039C 8F 3C 00 04 208: MOVZWL #SS$_NOSLOT,RO :; There is no slot available 
05 00 8 RSB 3; and return error code 
6143 52 0 6 07 30$: MOVL R2,(R1)CR3) ; Store PFL address in empty slot 
50 01 3c 00 0 MOVZWL #SS$_NORMAL RO : Indicate success 
5 08 ? RSB ; and return to caller 
0 11; This method of locking pages down while gloves ing IPL is used because 
08 12 ; this module is used by both SYSINIT and SYSGEN. SYSGEN locks pages 
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into its sty set, making this technique unnecessary (but harmless). 
SYSINIT does not lock pages into its working set. 


OCK_IPL: 


-WORD IPLS$_SYNCH ; Value of synchronization IPL 


LOCKED_CODE_END: 


ASSUME <LOCKED_CODE_END = LOCKED_CODE_BEGIN> LE 512 
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ARG_ -SEP-19 BOOTS.SRCJINITPGFIL.MAR;1 
os 2 ¢ i . SUBTITLE CHECK_ARG_LIST 
0 4 § : Check the argument List for the presence of optional parameters. If the 
8 4e7 ; parameters are present, store their values in local storage. If the 
2 8 : parameters are not specified, store their default values of zero. 
08 ? ? : Input parameter: 
$e : ¢ 3 (AP) = Number of arguments passed to procedure 
33 : : : Optional input parameters: 
08 436 : MINVBN(AP) Number of blocks at the start of the file that 
08 437 ; are not represented in the bitmap. 
08 438 ; (Defaults to zero if not present 
08 439 ; STARTVBN(AP) Number of bits at the start of the bitmap that 
08 440 ; are cleared, indicating that the first STARTVBN 
0 441 ; blocks are not available for use. 
: ¢ : (Defaults to zero if not present) 
2 ¢ : Output parameters: 
0 446 ; PFL_L_MINVBN(FP) Set to value of MINVBN(AP) or zero if 
0 447 ; that parameter is not present. 
0 448 ; PFL_L_STARTVBN(FP) Set to value of STARTVBN(AP) or zero if 
0 : 4 $ that parameter is not present. 
$3) 
288 
454 
455 
456 
457 
458 
459 
460 
? 1 
188 
464 
465 
4 


SoOSOSOOOCOOOOSOSOSOOSOSOSOSOSOOSOOSOSOOSOOOOOOOOOOOOOOOOOOOO 
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8 
8 
8 
8 
8 
8 
8 
8 
8 
08 
08 
08 CHECK_ARG_LIST: 
06 6C 91 008 cAPB (AP) ,#6 3 Check for six or more parameters 
06 IF 008 BLSSU 1108 ; Branch if fewer than six 
EC AD 14 AC 7D 008 MOVQ = MINVBNCAP) ,PFL_L_MINVBN(FP) ; Store optional parameters 
05 3 RSB 
08 ; The nt ag a assumptions demand that the two optional parameters be 
08 ; adjacent in the argument List and in local storage so that they can 
+4 ; be stored (or zeroed) with a single MOVQ (or CLRQ) instruction. 
08 ASSUME STARTVBN EQ <MINVBN + 4> :; Offsets from AP 
08 ASSUME PFL_L_STARTVBN EQ <PFL_L_MINVBN + 4> ; Offsets from FP 
EC AD 7C 008 108: CLRQ PFL_L_MINVBN(FP) ; Parameters default to zero 
05 33 $ RSB 
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v04-000 FIND_MAXVBN Calculate ned’ fied MAXVBN pa 7786-1383 33:32:93 teoors sre INITPGFIL.MAR;1 — (1) 
- SUBTITLE F IND_MAXVBN Calculate modified MAXVBN parameter 


a ey 


+ 
This routine calculates the smallest pyver of two that is larger than 
w 


a given integer and returns a value which is that value minus one. 
Input parameter: 
R6 = Integer between 0 and “X3FFFFF 
; Output parameter: 
R6 = Integer of the form 2**N - 1 where 
N-1 LSSU log(x) LEQU N 
log(x) is log base 2 of the input parameter 


Pal at at at at a ata 
0.00 00 G0 09 00 00 00 0909 SINININI NINN 
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SOOOCOCCCOCOCOSOOSCOOOCOOOOOOOOOOOOoOOO 


.PSECT PAGED_CODE RD,NOWRT,EXE,LONG 
02 490 FIND_MAXVBN: 
52 56 DO 0102 491 MOVL  R6,R2 
50 01 DO 0105 49 MOVL #1.RO 
51 01 dO 08 49 MOVL #1,R1 
52 «50 «D1 «(010B:)Ss 494 108: CMPL  RO.R2 
09 «1E OF 495 BGEQU 
51 51 01 78 0110 496 ASHL = #1, R1,R1 
50 51 #¢B 0114« «(497 BISL2 
fa 17 498 o$ 
19 499 
56 50 DO 0119 500 20$:  MOVL  RO,R6 
05 O11c 501 RSB 
1D 502 


OC 
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04-000 INIT_BITMAP ° Oe SEER I8hS $8ida:53 PaRGVeS Regie YeerlO mans1 ame 
.SUBTITLE INIT_BITMAP 


; Initialize the page file bitmap. The first STARTVBN bits are 

; cleared, indicating that the associated blocks are initially 
allocated. The remaining bits are set, indicating that the remainder 
of the file is available. 


Input parameters: 


R2 = Address of page file control block 

dt ae preg tt Size in bytes of bitmap 

PFLSL_BITMAP(R2) Address of start of bitmap 

PFL_L_STARTVBN(FP) Number of blocks to mark as in use 
Side effects: 


ALL of RO through R9, with the exception of R2, are destroyed. 


Page file allocation code assumes that the first byte in its 

bitmap never contains all ones. By piactng the flags byte 
immediately before the beginning of the bitmap and reserving a flag 
bit for all time, this function is accomplished. 


ASSUME PFLSL_BITMAPLOC EQ <PFLSB_FLAGS + 1> 
3; The a ey en table contains the eight possibilities that can exist 
: for the boundary byte between the portion of the we paep that indicates 
; blocks in use and the portion that indicates free blocks. 


BOUNDARY BYTE: 


MO OLOD ONNNVOM FS OVUM EWN “SO MMOoVIVTVOVTVTVTCVVTVVCCOVCOCOCCTCOVCOCVCCOUCUVTUUUCUUTUCUVUVTUTUTTOCSO =z-— 
PUPP PVPV DV SV SV SDVDV SUSI USPS USUSUSUSESUSUSUSISU STS U SUSU USUI ST SESSILIS SISOS 
DPS Be BB BEE EIA. RPUPINPONIPUNINIDY 2 2 SS 4 OOOOOOO 
OOWONA NEW $0 ODNOAU EWN O OONOA UE WIR OC OONAUE WAR)" O OONOAUES WA" OOONOUS 


Oe ee ae ae ed ae a ae ee a ee ae ee ee ee ee ae ee ed ae a ed a ed ed ed ed ee a a a ae a ed a a ed a a a a a a a a a ad 0 het 
PPE FAA ANIRINNINPININPOPIPININIDD 4 9 9 2 es 


SOOOOCOOCOOCOOOCOOSOOCOOSOCSOOOOSOOOSOCOSOOSCOOCOOOOOOOOOOOOOOOOOOOOOO 


FF TBYTE *B11111111 
FE -BYTE %*B11111110 
FC -BYTE %*B11111100 
F8 -BYTE %*B11111000 
FO -BYTE *B11110000 
£0 -BYTE %*B811100000 
co «BYTE %*B11000000 
80 -BYTE %*B10000000 
INIT_BITMAP: 
53 62 00 MOVL PFLSL_BITMAP(R2) ,R3 ; Start of bitmap to R3 
00 OD PUSHL # ; Initialize top of stack to zera. 
58 FO AD OD MOVL PFL_L_STARTVBN(FP),R& ; Get STARTVBN parameter into register 
0B] BEQL 10$ 3; Branch if entire file available 
59 D4 CLRL Ro 3; Clear upper half of R8:R9 quadword 
58 6€ 58 08 78 EDIV #8,RB,(SP) RB ; Quotient to top of stack 
3; Remainder to R 
59 D4 CLRL Ro ; Set fill character to 00 (null) 
19 +10 BSBB os ; Clear out first half of bitmap 
83 DE AFS48 90 10$: MOVB OUNDARY_BYTECR8],(R3)+ ; Set/clear boundary byte 
50 8 97 C1 ADDL #1,(SP)4,R ; RO contains number of bytes completed 
7E° «(1G A 0 ¢3 SUBL3 RO.PFLSL_BITMAPSIZ(R2),-(SP) ; Bytes remaining to top of stack 
5 00 oe MCOML 0,R9 ; Set fill character to FF (all ones) 
06 1 SBB e0$ ; Set rest of bitmap to all ones 
6 94 CLRB (R3) ; Set stopper byte at end of bitmap 
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V04=000 INIT BITMAP ° aaSEETISBS 88:82:93 PARC YES Meg re ¥OKrOO ae. Page 1%, 
SE 04 £9 ADDL2 #4,SP 3; Reset stack pointer 
RSB ; and return 


; Set or clear a number of bits in a bitmap 
; Input parameters: 


Bitmap address (updated by this routine) 
BY Fill character (either 00 or FF) 

O(SP) Return PC 

4(SP) Number of bytes to set or clear 


Side effects: 
R2 preserved 
“ie 


updated to point one byte beyond bitmap 
The rest of RO through R7 are destroyed 


SOOCOOCOOCSCCOSCSOOOOCOCOOOSOOOOOOOOOOOOOOO 
a et et ts ts as — 2 2s 2s Ss Ss = 2s ss SS SS 2 Ss Ls SS ts SS YS SS oo ee 
NNNNAAAAOA OUI MMMM III 
DHWOOCOMPRAHKHLLAE LLL LLL ERPS EWO = 
DDD 
300000000009 09 09 69 09 09 09 09 SI NI NII NINN AAA AAAOAO 
FUNC ODNAUEWN (OO ONAUS WN (OO DNOUS WR 
Bete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 


52 oD 208: PUSHL R2 : Only register worth saving 
56 O8 AE 3C MOVZWL 8(SP),R6 ; Low order word of bitmap size to R6 
57 OA AE 3C MOVZWL 10(SP5,R7 : oc order word of bitmap size to R7 
OE 13 BEQL 40$ 3; Skip loop if one MOVCS will suffice 
63 =FFFF 8F 59 63 00 2 30$: MOVCS #0,(R3),R9,A°XFFFF,(R3) ; Initialize (64k = 1) bytes of bitmap 
83 59 90 MOVB R9,(R3)+ ; Get the Last byte, too 
F257 FF 5 : SOBGTR R7.30$ : Go back for next 64k block 
65 56 59 63 OO 2 E 40$: MOVCS #0, (R3),R9,R6,(R3) ; Initialize what's left 
52 8ED0 4 POPL Re ; Restore PFL address to R2 
05 i RSB 
8 END 


INI TPGFIL 
Symbol table 


_MAXVBN 
ND-PFL_SLOT 
AGS 


SS$~NOSLOT 
$$$” PARTMAPPED 
STARTVBN 

SYSG$_EMPTYF ILE 
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INI TPGFIL 
Psect synopsis 
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tema wome namo mwan + 


! Psect synopsis ! 


tam omenoce ee men sat 


PSECT name Allocation PSECT No. Attributes 
. ABS 00000000 ( 0.) 0¢ O.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 000000 ( 0.) 1¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
PAGED _CODE 60000178 ¢ 376.) O@ ( g-) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC LONG 
NONPAGED_CODE 00000092 ( 146.) 03 ¢ 3.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC LONG 
eos esw esr ee ssa some can asa > 
! ; Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization 1 80 : 80:00. 08 00:00: 00.26 
—. processing 125 00:00:00.66 00:00: 06-30 
299 00:00:09.09 B :00:1 “60 
Symbol table sort 0 88 80:00" 6 0:00:02.78 
s2 116 9:28: 2.08 00:00:04.31 
ae table output 00:00:00.07 00:00:00.19 
Psect synopsis output 00:00:00.04 00:00:00.11 
Cross-reference output 88: 8 208-90 00:00:00.00 
Assembler run totals 584 00:00:13.38 00:00:28.92 


The working set Limit was 1500 pages. 

52000 bytes (102 pages) of virtual memory were used to buf tor the intermediate code. 

There were pages of symbol table space allocated to hold 922 non-local and 26 Local symbols. 
594 source lines were read in Pass 1, producing 15 object records in Pass 2. 

19 pages of virtual memory were used to define 18 macros. 
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Macro Library name 
.$255$DUA28: (BOOTS. 08538001 . MLB; 1 0 
“$255$DUA28:CSYS.OBJJLIB.MLB; 1 ? 
5 


$255S$DUA28: SYS IBISTARLET. MLB;2 
TOTALS (all Libraries) 1 


1004 GETS were required to define 15 macros. 
There were no errors, warnings or information messages. 


MACRO/LIS=LIS$: INI TPGFIL/OBJ=OBJ$: INITPGFIL MSRC$: INI TPGFIL/UPDATE=(ENHS: INI TPGF IL) +EXECML$/L1B+L18$:BOOTS.MLB/LIB 
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